(Fcopy_sequence): Correctly copy the char-table contents.

diff --git a/src/fns.c b/src/fns.c
index 96ce2dafa0525ce6842ea51b2793ebd34ae7889e..75ece5bf81d1eef2ad2e5b7108f86ea36867c31c 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -330,7 +330,7 @@ with the original.")
 
       copy = Fmake_char_table (XCHAR_TABLE (arg)->purpose, Qnil);
       /* Copy all the slots, including the extra ones.  */
-      bcopy (XCHAR_TABLE (arg)->contents, XCHAR_TABLE (copy)->contents,
+      bcopy (XVECTOR (arg)->contents, XVECTOR (copy)->contents,
             ((XCHAR_TABLE (arg)->size & PSEUDOVECTOR_SIZE_MASK)
              * sizeof (Lisp_Object)));